home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Advisor / CD-ROM Advisor.iso / prodemo / demo / dylan.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1995-09-13  |  694 b   |  30 lines
  1. on enterFrame
  2.   global gMouseDownInButton, gChannelForHighButtons, gUseMenuButton, gCursorIsHand
  3.   set gUseMenuButton to 1
  4.   set hTemp to the mouseH
  5.   set vTemp to the mouseV
  6.   if gMouseDownInButton then
  7.     if isWithinExitButton(hTemp, vTemp) then
  8.       set the visible of sprite gChannelForHighButtons to 1
  9.       updateStage()
  10.     else
  11.       set the visible of sprite gChannelForHighButtons to 0
  12.       updateStage()
  13.     end if
  14.   else
  15.     if isWithinExitButton(hTemp, vTemp) then
  16.       if not gCursorIsHand then
  17.         cursor([9, 10])
  18.         set gCursorIsHand to 1
  19.       end if
  20.     else
  21.       cursor(-1)
  22.       set gCursorIsHand to 0
  23.     end if
  24.   end if
  25. end
  26.  
  27. on exitFrame
  28.   go(the frame)
  29. end
  30.